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COPYRIGHT IBM COPP 1976 
LOCTR OBJECT TEXT STMT SOURCE STATEMENT COPYRIGHT IBM CORP 1976 LOCTR OBJECT TEXT STMT SOURCE STATEMENT 
* ‘ 
002E20 0000 ee pc A (*-*) IBIS CYLINDER ADDRESS aces FUNCTION ecee eee 
889+* z SELECT HEAD OM M 
7694* THIS TEST UNIT WILL RETURN TO MDI WITHOUT DOING ANY PROGRAM 3904* READ ID SECTOR #30 
770+* FUNCTION. THE RESULTS THAT WERE SET UP IN THE RESOLIS AREA ARE ° ; P OUESTION. 
Le be STILL VALID BUT A DIFFERENT TEST IS TO BE PERFORMED. Oatte : LOOP UNTIL CE INPUTS ANSWER TO MAP QUES 
Hf 893+* 
002E22 4020 2DE2 3C02 773+T3C02 MVWI X'3C02' ,$TUID SET UP TEST UNIT ID ce. ENCE 
au) HERERO BCE OEE E OOO AO SOR OA TOA AIA aus POET ee ece one ceh AcE ae ues 
+%* 
73 : EQUATED NAMES FOR SUPPORTED SVC'S : peat pints vannay 
WEST SOS LOSS SIS SCS SS SCS SCS SSS CSCOS SSCS SCL SS SEE TS SE TTS TT SSS CLES ST TTT PT tT Ss TY he MDI TERMINATES LOOP 
000000 782 oUT E 0 OUT SVC ed ERROR 
000001 783 OUTIN E q UN ou gel EXITS tae 
000002 784 IDLE 2 BER na KCGREavE o0b4* 
OOoOgR 482 taNGE 3 CHANGE LEVEL SVC Eee RETURN CONTROL 
titties TB4 eng 2 Ae svqe COE partons arnt mre Bouts B TURTN* RETURN TO MDI SUPERVISOR 
000007 789 TERS q TERMINATE SVC 900) Her EEE EE HOO CEE EESOSCE EEE SO SOC HE HOHE a conc doiins sas ores 
poogee ogo noone : Beene a ade” SNE OO2E2A 6FOD 2 910+T7838 MVW TN SAVE RETURN ADDRESS 
ano on: peccas : Sraoe CYCLE STEAL SVC OO2E2E 4020 2 911+ MVWI SET STUID SAVE TU ID FOR DISPLAY 
AODOOR 395 ounce 10 START CYCLE STEAL STATUS SVC QOO2E34 4424 2 912+ MVA OPTN 1, RA SET UP POINTER ADRS IN R4& 
BaboRe ey ace: q a2 REPARE DEVICE SVC 002638 6£E03 3 913+ BAL S$CONC CLEAR DEV DEP STG AND CONNECT I/O BL 
nthe 43e Eero ett 12 Peap WITH FUNCTION BIT 3 OFF SVC OO2Z2E3C 2E62 OT eLe DC acsieer’ ERROR ADRS FOR INVALID PREP 
+ 
nttititeks a9 READ Egy 13 Be aD ainus sven BET (ON ee QOOZE3E 4020 2ED2 916 MVWI O,SKDCB4+2 SETUP SEEK NO-OP a SELECT) 
00000F aan seer : 4 We WRITE WITH FUNCTION BIT 3 OFF SVC OO2ZE4Y4 8838 189A 917 HVa TOPARM1*,SKDCBt8 SELECT HEAD FROM DI 
oon 59 1 ton 4 HRITE WITH FUNCTION BIT 3 ON SVC OO2ZE4A 6E03 30CC 918 BAL $SEEK,R6 SEEK 
399912 00 Cal’ Bou 1g CONTROL $¥c 02Eu FEET no 200, 282 aster Boar RSSOSE) wsoce BEROR-EXTT Ss  conppon uoRD 
, 002E50 EB 
900018 BO2 CIGR FOU 20 CONNECT INTERUPT CONTROL BLOCK SVC 903856 4020 3EB4 000 931 ayer O,Rspcpst LORD See eink G9 SEC #0 (LOG 30) 
E : 
00842 Bon REGSD oey 24 PE OUEST USS OF DCP DISK SVC 002E60 2E62 oe eacn ae A (S16£) oe EXIT 
aaanae ee EOU a Tepeteye ee 00 2E62 6802 3332 925+S16E SCONX RETURN TO MDI CONTROLLER 
ooo us B06 Baca ete 20 HBEDIC £0 HEX SVC (STRING 02 6+ RO a Ii tok doi eto moi kai ri i ak Seto ke kkk $0 ke dk I Rk ho dk ke tk dake fe fete ake este a ae fe ak 
te 808 HTOE EQU 26 HEX TO EBCDIC SVC (oTR TING) ees 4 
000018 809 ATOH EQU 27 ASCII TO HEX SVC (STRING 656 * 
00001C 810 HTOA EQU 28 HEX TO ASCII SVC (STRING 
Bh 29 EBCDIC TO ASCII SVC (STRING 931 COPY 17872 piieeeegr eevee: 
AOoOde eee ee E5U 30 ASCII TO EBCDIC SVC STRING) Be Ce en rh ey me geet eee . 
00020 Sia CEETT EAU ae WEITE DATA SETS FOR UTCL. 934 * THIS TU INHIBITS INTEPRUPT_ 12/01/76% 
. eae HEEB CB EEE ECO ORE ICRC E OOO TE UE HO OE A UO EOE EET ORT Ae Boe RE oe a pt PES IE th area LAT ee PAE a 
8 VW 7, TURTN SAVE RETURN ADDRESS 
B16 : i eR ae as es et tet Zeya 0020 334 ee NYE X$020" ,ToDcB PREP TO LEVEL 2 WITH THE 'I' BIT OFF 
820 Pe ee ee Ee EIN mr ren rE ern Erne reer Tn er One Ts 002E70 4724 329A 939 HVA IOBLK,R 
QO0004E 821 PLUS Q Cl+t PLUS CHAR Goze p0c Bid ate Es 
eae ee ees a BaNYS:-CHRe | QOO2E78 6FO0OD 2E1A 942 T72A MVW R7 , TURTN SAVE RETURN ADDRESS 
tide B35 ZERO et 4 OO2E7C 6802 3332 943 1728 B $CONX EXIT 
O08 02 B35 Tao ESh g 946 COPY T78DCB O1DEC76 
000003 827 THREE EQOU 3 sny ee (r7DcE) 
Mates 838 Foue ati ¢ O48 eA GIAO IGG ao i ac a Oia a IC IE] 2/77 6 FR FOR tk 
949 * 
gggog6 30 six, FOU § 34 © «DCB TABLES AND vC's 
ete 832 crate EOU 3 ea0 ST OT OE eT PL eT ee eT ee one rT hermit 
Pd 
QOOOOOA 834 TEN EQU 10 11 geR *kEKK DTAGNOSTIC DCB KKK KK 
000008 836 HELV EOU 12 12 gee & amie ee 
956 DGDCB DC X 
inthis 5g sryeu uao 12 16 O0O02E84 0000 958 DC tee | O-7 = PHYSICAL SECTOR # MINUS ONE 
Mitel BhOanaee che 48 32 002E86 0000 959 DC X¥*00008 NOT USED 
A Ouaa Se me tes Gao oa 64 002E88 0000 960 DC X'0000! NOT USED 
aaenaR eter ese aA 128 OO2E8A 0000 961 DC at 100 CHAINING ADDPESS 
oO 0988 Bag aNeee BQt 428 256 Q0O02E8C 0100 962 DC X¥*0100! BYTE COUNT 
niet Bad coneR =n 228 1024 QOO2E8E 0000 963 DC A (*-*) DATA ADDRESS 
000800 Bue THOR EOU 2048 3048 Sey + 
965 * 
000C00 846 THREK EQOU 3072 3072 Yeyeugen 
001000 847 FOURK EQU 4096 oe 306 acres RECALIBRATE DCB 
eEPere gag tS eh “3 ~-2 002E90 0007 968 CLDCB DC X¥*0007!8 RECALIBRATE DCB 
PFFFFD B29 ie FOU -3 -3 002E92 00000000000000000 aon - DC TA (¥-*) 
- ~4 
Se EEE 583 BESO EEE HSCEI S OB CORO EEO E REO TCO ORO EAE SACRE HOH Ia a or WRITE SECTOR ID ** 
973 WSDCB DC X¥'0002! WRITE SECTOR ID CONTROL WORD 
856 * THE FOLLOWING ARE EQUATES FOR BIT DISPLACEMENTS FROM THE * OO2ZEAOQ 0002 X Soe uceR 
857 2 BEGINNING OF THE BYTE TO EACH BIT IN THE WORD OF SWITCHES. : Boson 5060 eae ie ; 90 00" §27 = HAV eTOAis SnenOe-k ants: ONE 
828 PSST OSS CSSS SSCS LSS OSC SCC COS SCL TS PCTS TS PPP ST Te ST TT tT tte TT TPT TTT TTT TT Ss fF) OOZERG 9000 age He A = uot ieee 
Aa pone aeons EQ QO2ZEAA 0000 978 DC A (*¥-* CHAIN ADDRESS 
AooaaD pea ees ERD 1 OO2EAC 0006 979 DC x*0006! BYTE COUNT 
ean Boa ee QU 2 OO2ZEAE 2F66 980 DC anon Th ADDR OF SECTOR ID DATA 
Hatter See Poa Eon ; 981 ***** READ SECTOR ID DCB *****«** 
982 * 
AAReae pee eee Ean ° 983 RSDCB DC X'200A° READ SECTOR ID 
AO ROaS pe ounee een g eee 5008 984 DC X*'0000! NOT USED 
anOaoG peal nad a i OO2EB4 0000 985 DC X'O00008 O-7 = PHYSICAL SECTOR # MINUS ONE 
BaaanS poe nes ae : OO2EB6 0000 986 DC X'0000° NOT USED 
aaanon Bom nee a 3 0O2EB8 0000 987 DC X'0000' NOT USED 
Bboonn Bas bea. =e Ve OO2EBA 0000 988 DC X*'0000' CHAIN ADDRESS 
Fociee ea eeaa Sa ie OO2EBC 0006 989 DC X*'*0006! BYTE COUNT FOR READ SECTOR ID 
Ht Sue: eee FOU ‘; QOO2EBE 2DEA 990 DC A (SCTID) SECTOR ID DATA ADDRESS 
* 
OOO00E 874 BS14 EOD 14 aa) : 
aed e459 a ery 3538 O1DEC76 993 ***** READ SECTOP ID IMMEDIATE DCB *****«*x 
994 * 
EEE ELE ELL ee eee PEE ELE T Tee Teer ET eT PTT heer EET re ee Tre 092ECO 200E 23? RIDCB DC X1200E READ SECTOR ID 
parce ST UNIT O0O02EC4 0000 997 DC X'0000! NOT USED 
err go38cs 8383 op BE gaa non eet 
oes. T78S16 PEAD ID TEST LOOP 12/01/76 BpeEEe BOG Aone we A (e—*) pata pense 
ee OO2ECC 0006 1001 DC x'0006! BYTE COUNT FOR READ SECTOR ID 
Bele Beas OO2ECE 2DEA 1002 DC A (SCTID) SECTOR ID DATA ADDRESS 
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LOCTR OBJECT TEXT STMT SOURCE STATEMENT COPYRIGHT IBM CORP 1976 LOCTR OBJECT TEXT STMT SOURCE STATEMENT COPYRIGHT IBM CORP 1976 
00303C 68D2 0000 1232 r B (R6) * RETURN TO USER 1347 * BAL LWSID,R6 
003040 6F05 1234 IORST DC X'6F0O5! RESET I0 1346 * RETURN 
003042 2205 1235 IDCBO x¥*22058 SENSE WORD ZERO 1350 * 
003044 0000 1236 RDATAO DC A (*-* DATA WORD 1351 * BXxS (R 6) 
003046 2105 1237 IDCB1 DC x¥*2105! SENSE WORD ONE 1352 * 
003048 90000 1238 RDA Cc A (*-* 1353 RH HHH HH HK KH HK HH HH HH HK a ee ee OK EK KK KEE EEE KKK EE 
OO304A 4005 1239 IDCBCE1 pc x*4o05s' CE DIAG OP1 1354 * 
00304c 0000 1240 CEDAT DC A (*-* SENSE DATA 1355 * 
O00304E 4105 1241 IDCBCE2 pc x'41058 CE DIAG OP2 0030BC 4724 0005 1356 LWSID MVWI 5,R7 BYTE COUNT 
003050 0000 1242 CEDAT2 DC A (*-* SENSE 0030CO 4324 2DEB 1357 MVA  SCTID+1,R3 ADDR OF RD SECT ID DATA BUFFER 
003052 2F05 1243 IDCBRAP DC x*"2Fo5! READ DIAG WRAP 0030C4 4524 2F66 1358 MVA WESTD,R5 ADDR OF WR SECT ID DATA BUFFER 
003054 0000 1244 RAPDAT DC A (*-* SENS 0030C8 2BA4 1359 MVFN (R3) , (R5) MOV DATA FROM RD TO WR BUFFER 
000232 ae CPUID EQU) X*'0232! CP 0030CA 5600 1360 ; BXS R6 RETURN TO CALLER 
1248 PY 7810 O1DEC76 1363 * 
1249 {37 IO) 1364 * EXECUTE INPUT & OUTPUT COMMANDS 
1250 ea TEES EEG HEE IEE IEE 2/017 62H IEE OES EEO IE HEE Ri ERIK 1365 * TO EXECUTE ALL I/O COMMANDS FROM A COMMON PLACE. 
1251 * 1366 * EACH OF THESE ENTRIES SET R7 WITH THE ADRS OF ITS PARAMETER 
1252 * SUBROUTINE 1367 * LIST AND ANY SPECIAL SWITCHES BEFORE BRANCHING TO THE 
1253 * 1368 * SUPVR CALL. 
1254 * PURPOSE 1369 * 
1255 * 1370 * THIS SUBROUTINE WILL CHECK FOR THE FOLLOWING: 
1256 * COMPARE READ SECTOR ID DATA TO WRITE SECTOR ID DATA 1371 * z 
1257 * NORMAL AND TEST DATA. 1372 * 1. LOST INTERRUPTS BY TIMING OUT A COUNTING LOOP 
1258 * 1373 * 2. ERROR INTERRUPTS RECEIVED FROM SUPVR 
1259 * CALLING SEQUENCE 1374 * 
1260 * 1375 * THIS ROUTINE HAS THE FOLLOWING ENTRIES: 
1261 * BAL CMPRW,R6 NORMAL) 1376 * 2 
1262 . BAL CMPRT,R6 TEST) EE ; 1 BAL SRKEW,R6 READ SECTOR ID SKEWED 
1264 ; RETURN 137° : 2 BAL SWKST,R6 WRITE SECTOR ID SKEWED (TEST) 
1266 : BXS (R6,2) - NORMAL 1384 3 3 BAL SRWST,R6 READ SECTOR ID SKEWED (TEST) 
1268 * 1383 * 4 BAL SRIDS, RE READ SECTOR ID (TEST) 
1269 Me Me He He He Me Ae He ae Ie He Ae ke Ke ae I fe Be le 3 ec I Te ae fe kc kc he ae ec fe he ae ee he eK ee ae he he he i he i he HE IC Oc i ae i ac ee hc Oe hc ke Kk 2K 1384 * 2 
1270 * 1385 * 5 BAL SWKEW, R6 WRITE SECTOR ID SKEWED 
003056 4724 0005 1271 CMPRT MVWI BYTE COUNT 1386 * . 
00305A 4324 2F75 1272 MVA teat R3 ADDR OF RD SECT ID DATA (TEST 1387 * 6 BAL SWSEC,R6 WRITE SECTOR ID 
00305E 4524 2F6E 1273 MVA WSIDT,R5 ADDR OF WR SECT ID DATA (TEST 1388 * : 
003062 5006 1274 J Tay 1389 * 7 BAL SWSTS,R6 WRITE SECTOR ID (TEST 
003064 4724 0005 1275 CMPRW MVWI COMPARE BYTE COUNT 1390 * : 
003068 4324 2DEB 1276 MVA stripe R3 ADDR OF RD SEC ID DATA 1391 * 8 BAL SDIAG,P6 DIAGNOSTIC 
00306C 4524 2F66 1277 MVA R5 ADDR OF WR SEC ID DATA 1392 * : 
003070 2BA6 1278 TT4Y CFNEN (3), (Re) COMPARE ID DATA 1393 * 9 BAL XIOcS,R6 CYCLE STEAL STATUS 
003072 68C0 0002 1279 BE 72) BCH IF WRITE ID DATA OK 1394 * 7 
003076 68D2 0000 Aces : B Rej® COMPARE ERROR 1339 : 10 BAL SSEEK,R6 SEEK 
TP BD ARR HH He eK eH KR He HO OK eK I eo oe oe oe 3 ie 2 2 ec i i oie oo a tk tak te ok ok fe ke 2c ak ok oe 1397 * 11 BAL SRECL,R6 RECALIBRATE 
1283 * 1398 * 2 
1284 * SUBROUTINE 1399 * 12 BAL SRDID,RG READ SECTOR ID 
1285 * ; 1400 * a 
1286 * PURPOSE | 1401 * 13. BAL SRD,R6 READ 
1287 * CONVERT LOGICAL SECTOR NUMBER TO A PHYSICAL SECTOR MINUS | 1402 * 3 
1288 * ONE 1403 * 14 BAL SEDVY,R6 READ VERIFY 
1289 * SETUP LOGICAL SECTOR # IN LOCATION "LGSEC! 1404 * : 
1290 : PHYSICAL SECTOR # WILL BE LOADED IN LOCATION tPuHysc? 1405 : 15 BAL SWRT,R6 WRITE 
1593 * LOGICAT~ ¥ 007 IR 01, iF, 09) 20. 03, 270 Ou 22, 05, 23, 06, 24 0 329E 2EDO ldog 3 VA B,IODC SET UP CONTROL BLOCK FOR SVC CALL 
i P) ’ ’ ’ f ’ ’ ’ ’ r) P) ’ ’ 0030CC 402 29E 2ED SEEK M SKDC B 
1238 * PHYSICAL X 00, 01, 02, 03, O04, 05, 06, O07, 08, 09, OA, OB, OC, OD, 0030D2 5064 1409 J X10” 
1296 * LOGICAL- O07, 25, 08, 26, 09, 27, OA, 28, OB, 29, OC, 2A, OD, 2B, 0030D4 4020 329EF 2E90 1411 SRECL MVA CLDCB, IODCB SET UP BLOCK FOR SVC CALL 
ae . PHYSICAL OE, OF, 10, 11, 12, 13, t4, 15, 16, 17, 18, 19, 1A, 1B, 0030DA 5060 1442 x J XTO : 
1299 * LOGICAL- OE, 2C, OF, 2D, 10, 2E, 11, 2F, 12, 30, 13, 31, 14, 32, 0030DC 4020 329E 2EBO 1414 $RDID MVA RSDCB, IODCB SET UP BLOCK FOR SVC CALL 
1300 * PHYSICAL 1c; ID, TE, IF, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 0030E2 OBFF 1415 MVBI X'PFOCR3 SET BUFFER TO Ffs 
1301 * OO30E4 4524 2DEA 1416 MVA SCTID, RS SETUP READ SECTOR ID BUFFER ADRS 
1302 * LOGICAL- 15, 33, 16, 34, 17, 35, 18, 36, 19, 37, 1A, 38, 1B, 39, 0030E8 4724 0006 1417 MVWI 6,R7 SETUP BUFFER LENGTH 
1303 * PHYSICAL 2A, 2B, 2C, 2D, 2E, 2F, 30, 31, 32, 33, 34, 35, 36, 37, OO30EC 2BAC 1418 FFN R3 £85) INIT READ SECTOR ID BUFFER 
1304 * OO30EE 4020 2EBE 2DEA 1419 MVA  SCTID,RSDCB+14 DATA ADDR 
1305 * LOGICAL- 1C, 3A, 1D, 3B, X OO30F4 5053 1420 J XIO 
1306 * PHYSICAL 38, 39, 3A, 3B, X 1421 * 
1307 * 0OO030F6 OBFF 1422 SRD MVBI X*FFIt,R3 SETRD BUFFER TO ALL FtS 
1308 * OO30F8 6D08 2FIE 1423 MVW RDDCB+14,R5 SET UP READ BUFFER ADRS 
1309 * CALLING SEQUENCE 0030FC 4724 0100 1424 MVWI X50700", £7 SET UP BUFFER LENGTH 
1310 * 003100 2BAC 1425 FFN & 5) CLEAR READ BUFFER 
1311 * BAL CONVT,R6 003102 4020 329E 2F10 1426 SRDS MVA Ebb B, LODCB SET UP BLOCK FOR SVC CALL 
1312 * 003108 5049 1427 J 
1313 * RETURN 1428 * 
1314 * 00310A 4020 329E 2F00 1429 SRDVY MVA VRDCB,IODCB SET UP CONTROL BLOCK FOR SVC CALL 
1315 . B (TT 30442) 003110 5045 1430 : J XIo 
aehG Se Oe ee ee Re OT ee Te een ee eee ae eee ee eee 903142 40 20 329F 2EFO 1432 SWRT NVA WRDCE, TODCE SET UP CONTROL BLOCK FOR SVC CALL 
XI 
00307A 6E0D 30BA 1319 CONVT MVW 6, TT30442 SETUP RETURN ADDR 1434 * 
00307E 802B 2F40 2F5F 1320 CB ZEROO, LGSEC+1 CK FOR LOG # ZERO 00311A 4020 329E 2F30 1435 SRKEW MVA_ RKDCB,IODCB SET UP CONTROL BLOCK FOR SVC CALL 
003084 100D 1321 JE TT303 BCH IF LOG # IS ZERO 003120 OBFF 1436 MVBI X'FF",R3 SET BUFFER TO FtS 
003086 802B 2F5F 2F62 1322 CB LGSEC+1,CB29 CONP LOG TO 29 003122 4524 2DEA 1437 MVA  SCTID,R5 SETUP READ SECTOR ID BUFFER ADRS 
00308C 1C0OD 1323 JGE RTTO1 BCH IF LGSEC EQ O®8 LESS THAN CB29 003126 4724 0006 1432 MVWI 6,R7 SETUP BUFFER LENGTH 
00308E 4024 0002 1324 MVWI 2,R0 SETUP MULTIPLIER 00312A 2BAC 1439 FFN R3 {P5) INIT READ SECTOR ID BUFFER 
003092 £821 2F5F 1325 NB LESEC#1, RO LOG SECTOR # TIMES 2 00312C 4020 2F3E 2DEA 1440 MVA SCfID, RKDCB4+14 DATA ADDR 
003096 7802 003C 1326 SWI 60,R0 LOG SEC TIMES 2 MINUS 60 003132 5034 1441 J XIO 
Oosbon Sone wr! 1338 yvB  RTaOR RETURN TO CALLER 5 joat ianz ¢ : 
003134 4020 329E 2F2 WKST MVA WKDCB, 1ODCB SET UP CONTROL BLOCK FOR SVC CALL 
0030A0 8028 2F64 2F61 1329 TT303 MVB FIVE9, PHYSC+1 PHYSICAL SECTOR # 59 00313A 4020 2F2E 2F6E 1444 MVA WSIDT, WKDCB+14 DATA ADDR 
O0OO30A6 5008 1330 J TT304 RETUPN TO CALLER 003140 502D 1445 J To 
003088 4024 0002 1331 RTTO1 MVWI 2,R0 LOAD MULTIPLIER 1446 * 
OO30AC E821 2F5F 1332 MB LGSEC+1,FP0 LOG SECTOR # TIMES 2 003142 4020 329E 2F30 1447 $RWST MVA  RKDCB,IODCB SET UP CONTROL BLOCK FOR SVC CALL 
0030B0 7802 0001 1333 SWI 1,R0 SUBTRACT ONE 003148 4020 2F3E 2F74 1448 MVA SCTST, RKDCB+14 DATA ADDR 
0030B4 C028 2F61 1334 MVB RO PHYSC#1 LOAD PHYSICAL SECTOR # 00314R 5026 1449 J XIO 
0030B8 6802 0000 1335 TT304 B *- RETURN TO CALLER 1450 * 
1336 * 003150 4020 329E 2EBO 1451 SRIDS MVA RSDCB, IODCB SET UP CONTROL BLOCK FOR SVC CALL 
VicMw ME tS rts SPSS FS FPS SSS SS SS STE SES SSS SES SSS SL SS SSS SSS SSS SE SPSS SSS SPS St SS Lt ee fs 003156 OBFF 1452 MVBI X'FF! tR3 SET BUFFER TO FTtS 
1338 * 003158 4524 2F74 1453 MVA SCTST,R5 SETUP READ SECTOR ID BUFFER ADRS 
1339 * SUBROUTINE 00315c 4724 0006 1454 MVWI 6 ote SETUP BUFFER LENGTH 
1340 * 003160 2BAC 1455 FFN R3 5) INIT READ SECTOR ID BUFFER 
1341 * PURPOSE 003162 4020 2EBE 2F74 1456 MVA sehen, SDCB+14 DATA ADDR 
1342 * 003168 5019 1457 J XIO 
1343 * LOAD WRITE SECTOR ID DATA BUFFER FROM RD SEC ID BUFFER 1458 * 
1344 * 00316A 4020 329E 2F20 1459 SWKEW MVA WKDCB,IODCB SET UP CONTROL BLOCK FOR SVC CALL 
1345 * CALLING SEQUENCE 003170 4020 2F2E 2F66 1460 MVA WRSID, WKDCBtt4 DATA ADDR 
1346 * 003176 5012 1461 J XTO 
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17843 -<-{ 4962 HEAD SELECT DIAGNOSTIC P/N=1635266 EC=755285 PAGE 08 I7843 --- 4962 HEAD SELECT DIAGNOSTIC P/N=1635266 §EC=755285 PAGE O8A 


LOCTR OBJECT TEXT STMT SOURCE STATENENT COPYRIGHT IBM CORP 1976 LOCTR OBJECT TEXT STMT SOURCE STATEMENT COPYRIGHT IBM CORP 1976 
00325¢C F304 1694+ CBI 4 ,R3 ATTENTION INTERRUPT? IL 003288 4724 344C 1811+ MVA HEBLK,R7 GET ADRS OF CONTROL BLOCK 
00325E 1001 1695+ JE INTR RX YES TL OO32EC 601A 1812+ SVC HTOE CONVERT HEX TO EBC VIS DCP 
003260 4Cc6C 1696+ TBTS Ge NG) ERROR pet eeeee INTERRUPT IL QO032EREE ODO03 T8I3Z+SPRNT MVBI 3,k85 
003262 6006 16974+INTRE SVC xr¢ EXIT THIS LEVEL VIA SUPVR TO PGH TL 003270 4320 181A 1814+ MVA TOWORK,R3 SET UP BUFFER STORAGE 

1C50sSESEESERSSEAE SEE OEDLNRERSSAREEDDESETE EAR CR DRE EOE CO SEARS ED AnEE COSC OD IELS O0032F4 6B0D 3444 1815+ MVW R3,BUFPT 
1700+* 0032F8 4124 3374 1816+ MVA LIfe, R1 
1701+* THIS IS THE CONTINUATION OF EXECUTE I/O AFTER THE INTERROPT 0032FC OFOY 1817+ HVBI an Ay 
1702+* HAS BEEN SERVICED. THE EXERCISER FINDS AN INTERRUPT HAS BEEN Q0032FE OEFOS 1818+ MVBI 
1703+* RECEIVED AND BRANCHES HERE TO CHECK FOR ANY ERROR CONDITIONS. 003300 2B24 18194+HVBUF HVFN (fa) » (21 
1704+ 003302 OFOY 1820+ MVBI { 
1705+ 003304 OA48O 1821+ MVBI x, 4O',R2 
003264 4CA4 1706*+XIOCK TBTR RY, XE) WAS AN ERROR EXPECTED 003306 c258 1822+ MVB SBIkS 
003266 6ACO 0002 1707+ BN R6 ¢2) YES, EXIT THIS ROUTINE 003308 BEFB 1823+ ICT ve 6 
00326A 4CA8 1708+ TBTR R4,CS) WAS avo cS In PROGRESS 00330A OEO08 182+ MVBI 
00326C 1006 1709+ JOFF Tocy * NO, CONTINUE CHECKING 00330C 7921 002C 1825+ AWI a BI 
00326E 4C2A 17104 TBT (RG ,CE) Is c& IN AN ERR CONDITION 003310 BDF7 1826+ gcT svVBUF 
003270 1002 1717+ JOFF TOCO * oN 003312 %020 1802 FIFO 1827+ MVWI PIDESG10 PID+2 
003272 68D2 0000 1712+ B R6) * CS ERROR 003318 4020 19B8 344:~ 1828+ MVA FAKETU ,@DCADD1 
003276 4Cc69 1713+XIOCO TBTS R4,CSA) TURN ON CS STATS AVAIL FLAG 00331E 4020 19BA 3446 1829+ MVA DC2PT OCADD2 
003278 5601 1714+ BXS 26 +2), GO TO USER 003324 4&02c 19C4 0080 1830+ OWI BITO 0080 SUPSTAT 
00327A 4C21 1715#XIOcV TBT R4,ER) WAS ERROR INTR CONTROL BIT ON 00332A 4324 2DE2 1831+ NVA $TU SET UP BUFFER STORAGE 
00327C 1008 1418F JOFF tocx * NO, EXIT THIS ROUTINE 00332E 6F13 18BA teas BAL stnse irae.27 GO TO MESSAGE WRITER 
+ 
003278 C520 2DE5 1718+ aVB SIOIN+1,R5 GET fee INTR CC CODE 003332 1834+$CONX gd 
003282 ¥F502 17194 CBr 2,R5 Is THIS cCC=2 003332 C720 19D0 1835+ MVB DEVADD,B7 GET DEVICE ADDRESS FROM MDI 
003284 68D1 0000 1720+ BNE (Ro) * * NO, BCH TO ERROR HANDLER 003336 6013 1836+ SVC RICB RELEASE INTERRUPT CONTROL BLOCK 
003288 C520 2DE6 17214+XIOCQ NVB ISB,R5 Get LAST XSB DATA BYTE AND IF cs 003338 6812 2E1A 1837+ B TURTN* RETURN TO MDI SUPERVISOR 
00328C 6A00 31A2 1722+ BN XxToc$-4 * AVATLABLE, GO AND GET IT 1838+* 
003290 68D2 0000 1723+ B fad Bes ERROR 00333C 0007 18394+BEGIN DC A (0007 NUMBER OF LINES TO PRINT 
003294 CB25 2DE0 1724+XTOCX MVW2Z OPTN3,R3 CLEAR OUT OPTION 3 CNTL BITS 00333E 0008 1840+ DC A (0008 LINE LENGTH = 8 CHAR 
003298 5601 1725+ BXS (R6,2f RETURN TO USER VIA REG 6 003340 SCS5C4OC1IC2DED9IE3 18414 DC C'** ABORT! 
1726+* 003348 0028 18424 DC A (0040) a LENGTH = 40 CHAR 
1727+* T/o PARAMETER LIST 00334A ESES4COCHYOCODECID 1843+ DC C'TUID IOIN ISB INST DEV DEV2 DEV3 DEV& * 
172 8+% 003372 0028 1844+ DC A (0040) INE LENGTH = 4O CHAR 
00329A 19D0 1729+IOBLK DC A (DEVADD) ADRS OF DEVICE aoe 003374 Y4O4OKOKLOUOSONOUO4 18454LINE1 DC ct t 
00329C 3202 1730+ DC A (XIOER) ERROR ROUTINE ADRS 00339C 0028 1846+ DC A (0040) LINE LENGTH = 40 CHAR 
00329E 0000 1731+IODCB DC A (¥=* DCB ADRS OR LEVEL & INTR 00339E C3D5SE3D340C4C3C2F 18474 DC C'CNTL DCB2 DCB3 DCB4Y DCBS CHAD RYCT ADRS !? 
0032A0 0000 1732+IOMOD DC A (#—% MODIFIER 0033C6 0028 1848+ DC A (0040) LINE LENGTH = 4O CHAR 
0032A2 0000 1733+ DC A (= ADRS OF LAST SVC CALL 0033C8 4OuOKOUOGOUONOGO4Y 18494LINE2 DC c? y 
0032A4 0000 1734+IORSP DC A (#-* SECOND WORD OF LAST IDCB 0033FO0 0028 1850+ DC A (0040) LINE LENGTH = 40 CHAR 
1735+%* O0O033F2 DYEZCOICHHOCZE2Z60F 1851+ DC C'*RSID CS-2 CS-3 CS-4 CS-5 CS=-6 CS-7 CS=-8 
1736+* INTERRUPT CONTROL BLOCK FOR I/O COMMANDS 00341A 0028 1852+ DC A (0040) LINE LENGTH = 40 CHAR 
1737+* 00341C 4OKOKOKOKO4ONONOK 1853+LINE3 DC c? ' 
0032A6 19D0 1738+INTBL DC A (DEVADD) ADRS OF DEVICE ADRS 18544 
0032A8 3232 1739+ DC A (INTOK INTERRUPT OK RETURN ADRS 003444 0000 18554+BUFPT DC A neat 
OO32AA 3205 1740+ DC A (INTER INTERRUPT ERROR ADRS 003446 333C 18564+DC2PT DC A (BEGIN) 
0032AC 0003 I7414INTCC DC 0003! INTERRUPT CODE EXPECTED 003448 0101 1857+FIXTU DC Xx*0101! 
DY 34 RRA RR HHH RAH RH BR HOR ROR RI RR IO CR RRC Re tote tik oR ae Rok odo eK | MAY 76 eK OO344R 0101 185 8+FAKETU pC xX'0101? 
174uex OOF1FO 1859+PIDHSG10 EQU X*FIFO! 
ae SUBROUTINE 000080 1860+BT T0080 EQU xX*0080! 
oneee CONNECT INTERRUPT CONTROL BLOCK & PREPARE DEVICE sceais DATA CONTROL BLOCK FOR CONVERTING HEX TO EBCDIC 
17494* PURPOSE | 00344C 0030 1864U+HEBLK DC pte} NUMBER OF BYTES TO CONVERT 
1750+* ! OO34RE 2DE2 1865+ DC zp} FROM ADRS 
1751+% TO CONNECT THE INTERRUPT CONTROL BLOCK TO THIS DEVICE AND 003450 181A 1866+ DC A OWORK) AND THE TO ADRS 
1752+% PREPARE ON THE DESIRED INTERRUPT LEVEL AND TO ALLOW THE DEVICE 000000 1867 END 
1753+ TO INTERRUPT. 
17544¢* 
i iezts CALLING SEQUENCE 
eee as THIS SUBROUTINE HAS THE FOLLOWING ENTRIES: 
1759+* --> BAL SCONC,R6 CLEAR DEV DEP STG AND CONNECT I/O BLK 
176088 “--> BAL SCONP, 7R6 PREPARE DEVICE ONLY, ALREADY CONNECT 
176235 RETURN CONTROL 
1764+% BXS R6,2) RETURN TO USER VIA REG 6 IF OKAY 
176035 OR 3B R6f * IF THE DEVICE COULD NOT BE CONNECTED 
WAWEETELICCI SCIP rrr re Ett rT rte SPT eet et Se ee errr Terr rrr rr ert rr errr er Pere. ef 
OO32AE OFO6 1768+$CONC NVBI 6,R87 NUNBER OF BYTE TO CLEAR 
003280 0800 1769+ HVBI 0,R3 AND THE DATA TO USE 
0032B2 4524 2DEA 1770+ NVA DEV1,RS ‘ ALONG WITH THE ADRS TO USE 
0032B6 2BAC 1771+ FPN R3 (85) * 
0032B8 CB25 2DE0 1772+ MVWZ opt 3,83 CLEAR OLD CONTROLS FOR NEW ROUTINE 
0032BC 4724 32A6 1773+ NVA INTBL,R7 SET R7 TO CONTROL BLOCK AND 
0032CO 6014 1774+ SVC CICB ECT If TO THIS DEVICE 
0032C2 6AD0 0000 set. BN (R6) * ERROR RETURN TO USER 
0032C6 8828 2818 3295 1777+$CONP MVW SINTL,IODCB POUT IN LEVEL & INTR PARAMETER 
0032CC 4724 329A 1778+ HVA LOBLK,R7 R7 TO CONTROL BLOCK TO PREPARE 
0032D0 4020 2DEu 0708 1779+ MVWI X'0708*, SIOIN INITIALIZE CONDITION CODE STORAGE 
0032D6 CB25 2DE6 1780+ MVW2Z S$ISB,R3 * AND CLEAR OLD ISB VALUE 
0032DA 6E0D 2DE8 1781+ MV R6,LSTIO SET UP ADDRESS THAT STARTED LAST I/0 
0032DE 600C 1782+ SVC PRED * AND CALL ON SUPVR 
0032E0 5601 1783+ BXS {86 2) 0 US 
1 Doar TReteR eee eee TiTi fitter iret rt itr ttt ttt ett ttir err ttt tt tt tt cet wid t 
1 +% 
14ease SUBROUTINE 
138 DISCONNECT THE INTERRUPT CONTROL BLOCK AND LOG ERRORS 
143385 PURPOSE 
1793+ DISCONNECT THE INTERRUPT CONTROL BLOCK TO THIS DEVICE AND 
17944+* SET THE 'NO GOOD! CONTROL BIT, THEN LOG THE DATA THAT HAS 
NEE Eps BEEN FOUND TO HELP THE OPERATOR DEFINE THE ERROR CONDITION. 
173385 CALLING SEQUENCE 
these THIS SUBROUTINE HAS THE FOLLOWING ENTRIES: 
18014* <=> B SERR$ SET 'NG*' BIT AND CONVERT DATA TO LOG 
eonce --> B SCONX RETURN TO MDI SUPERVISOR TO TEST STS 
1804¢+* RETURN CONTROL 
1805+* 
1806+* B TORTN* RETURN TO 
Fe ed OR 8B (R6) * IF THE DEVICE COULD NOT BE CONNECTED 
18094 EH RERERERRR EERE AK RR HE EAE EE RE ER KES RARE EEK EE OE ERE EE HE 
0032E2 4020 1818 8000 18104+SERR$S MVWI X*'8000' ,TUSTATUS SET ON "NO GOOD' STATUS BIT 
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I7843 --- 4962 HEAD SELECT DIAGNOSTIC P/N=1635266 EC=755285 PASE 09 T7843 --=- 4962 HEAD SELECT DIAGNOSTIC P/N=1635266 EC=755285 PAGE O9A 
CROSS“REFERENCE LISTING COPYRIGHT IBM CORP 1976 CROSS~REFERENCE LISTING COPYRIGHT IBM CORP 1976 
DECLARED NAME ATTRIBUTES AND REFERENCES DECLARED NAHE ATTRIBUTES AND REFERENCES 
: ans WoRe 19S ae2e 1s). 13311332 1333 1334 535 F00077 ADDRESS. HEX LOCATION (0000272E) IN CSECT(I7843  ) LENGTH(1) 
: ae Whe 1819 4e22 Wess OY 544 F00079 ADBRESS. HEX LOCATION (00002762) IN CSECT(I7843 ) LENGTH(1) 
: eRe SEM EEE HEY SALE Uenee) 559 F00110 ADDRESS. HEX LOCATION (00002844) IN CSECT(I7843 ) LENGTH(1) 
: apes 1B naa Te otto eee 4357 1359 1415 1418 581 F00124 ADDRESS. HEX LOCATION (00002976) IN CSECT(I7843  ) LENGTH(1) 
1538 1543 1S 1600 1604 1636 1643 188 1876 587 F00126 ADDRESS. HEX LOCATION (000029AA) IN CSECT(I7843 ) LENGTH (1) 
1819 1831 605 F00157 ADDRESS. HEX LOCATION(00002A8C) IN CSECT(I7843 ) LENGTH(1) 
— aoe BT3 4 eae 4s29 1542 15461547 1549 1550 1553 627 00171 ADDRESS. HEX LOCATION (00002BBE) IN CSECT (17843) LENGTH(1) 
1238 1288 1830 1894 1893 169¢ 1566 1508 1740 633 F00173 ADBRESS. HEX LOCATION (00002BF2) IN CSECT(I7843  ) LENGTH(1) 
0 oR5. AZoLutE. HEX VALVE (90000005) 655 F00192 ADDRESS. HEX LOCATION(00002D04) IN CSECT(I7843 ) LENGTH(1) 
1255 122 1278 1288 1332 148 1346 1323 1323 1864 HEBLK ADDRESS. HEX LOCATION (0000344C) IN CSECT(I7843  ) LENGTH(2) 
1843 isae URERS NCCT Te, ule, “SES. AEE 808 HTOE ABSOLUTE. HEX VALUE (0000001A) 
: es Sheth Fee ida 4202” 1204 1208 1210 1214 1239 IDCBCE1 \R SBRESs. HEX LOCATION(0000304A) IN CSECT(I7843  ) LENGTH (2) 
124) 1221 1228 1223 1232 1273 4280 1343 1389 1241 IDCBCE2 \PODRESS. HEX LOCATION (0000304E) IN CSECT(I7843  ) LENGTH(2) 
0 oR7. ‘ABSOLUTE, HB VALUE (0000007) | a mie wa 1243 IDCBRAP WADDRESS, “HEX LOCATION (00003052) IN CSECT(I7843  ) LENGTH(2) 
142u 1438 1454 1537 1547 1548 1644 1682 1768 1235 IDCBO ADDRESS, HEX LOCATION (00003042) IN CSECT(I7843  ) LENGTH(2) | 
1768 $CONC ADDRESS. HEX LOCATION(QOO032AE) IN CSECT(I7843 ) LENGTH (2) 1237 IDCB1 qpon sete LOCATION (00003046) IN CSECT(I7843 ) LENGTH (2) 
1834 $CONX ADDRESS, HEX LOCATION (00003332) IN CSECT(I7843  ) LENGTH(1) 784 IDLE gnesouuree: Hee VALUE (00000002) 
763 SINTL ADDRESS. HEX LOCATION (00002E18) IN CSECT(I7843  ) LENGTH(2) 715 IN sao enes HES FALUS (00000023) 
733 S$IOIN jABDRESS, HEX LOCATION (00QQ2DE4) _IN CSECT(I7843  ) LENGTH(2) 1738 INTBL ADDRESS. HEX LOCATION(000032A6) IN CSECT(I7843  ) LENGTH (2) 
734 $ISB QPPRESS. HEX LOCATION (0000 2DE6) IN CSECT(I7843  ) LENGTH (2) 1635 INTER jADDRESS. HEX LOCATION(0000320E) IN CSECT(I7843  ) LENGTH (2) 
718 SLE BRSOL UTE. HEX VALUE (00000026) 1644 INTES ,BBDRESS. HEX LOCATION (00003226) IN CSECT(I7843 ) LENGTH(2) 
1414 S$RDID ADDRESS. HEX LOCATION(O00030DC) IN CSECT(I7843 ) LENGTH (6) 16 48 INTET icie HEX LOCATION (0000322) IN CSECT(I7843 ) LENGTH (2) 
1408 $SEEK ADDRESS. HEX LOCATION (000030CC) IN CSECT(I7843  ) LENGTH(6) 1675 INTOK jABBRESS- HEX LOCATION (00003232) IN CSECT(I7843  ) LENGTH (2) 
732 $TUID ADDRESS. HEX LOCATION (00002DE2) IN CSECT(I7843 ) LENGTH (2) | 1697 INTRX ABBR ESS, HEX LOCATION (00003262) IN CSECT(I7843 ) LENGTH(2) 
102 @DCADD1  ABBRESS. HEX LOCATION(000019B8) IN CSECT(I7843  ) LENGTH(1) 1678 INTR1 Gene eee acto IN CSECT(I7843  ) LENGTH (2) 
103 @DCADD2 ARBRESS- HEX LOCATION(000019BA) IN CSECT(I7843  ) LENGTH(1) ! 1683 INTR2 BRDRESS- HEX LOCATION (00003248) IN CSECT(I7843  ) LENGTH(1) 
39 @FIXT ABSOLUTE. HEX VALUE (00000101) van. dee. abe’, eau 1691 INTR3 ADDRESS. HEX LOCATION (00003256) IN CSECT(I7843  ) LENGTH(2) 
ne seals a day. vaUEToDbeOEON) | 1729 IOBLK ADDRESS, HEX LOCATION (0000329) IN CSECT(I7843  ) LENGTH (2) 
28 aguas «= ASoxune, apg, vazvs (00000100) 734 Tee ERT ta Ny NTE gN (Ngge Tagg SERS" FUSE? yuhghPNOE (2) 
408 438 8 1447 1451 1459 1463 1466 1470 1530 1536 1777 
Oy DQUXX ABSOLUTE. HEX VALUE (00000400) oa. oges 1732 IOMOD ARPRESS. HEX LOCATION(000032A0) IN CSECT(I7843  ) LENGTH (2) 
1839 BEGIN  ABBRESS. HEX LOCATION (0000333C) IN CSECT(I7843  ) LENGTH(2) 37 17843 CSECT. START (00002500) LENGTH (3922) ESDID(0) 
1860 BIT0080 ABSOLUTE. HEX VALUE (00000080) ; 1097 LGSEC ADDRESS. HEX LOCATION (00002FSE) IN CSECT(I7843  ) LENGTH (2) 
1855 BUFPT {ADBRESS. HEX LOCATION(00003444) IN CSECT(I7843  ) LENGTH (2) 1845 LINE1 ae HEX LOCATION (00003374) IN CSECT(I7843 ) LENGTH(40) 
1099 CB29 ADDRESS. HEX LOCATION(00002F62) IN CSECT(I7843  ) LENGTH (2) 735 LSTIO GaOe eeAG SONGS aa aa leeae akan” GS ECT (T1885 ) LENGTH (2) 
1229 CCERR RBDRESS. HEX LOCATION (00003034) IN CSECT(I7843 ) LENGTH(2) 712 MI ABSOLUTE. HEX VALUE (00000020) 
722 CE RBS OLUTE. HEX VALUE (0000002a) 1819 NVBUF ABBRESS. HEX LOCATION(00003300) IN CSECT(I7843  ) LENGTH (2) 
802 CICB pagOLutE. HEX VALUE (00000014) 724 NG ABSOLUTE. HEX VALUE (0000002C) 
968 CLDCB ADDRESS. HEX LOCATION (00002E90) IN CSECT(I7843  ) LENGTH(2) 719 NI RESOLUTE. HEX VALUE (00000027) : 
720 cs ABSOLUTE. HEX VALUE (90000028) 387 100001 ADDRESS» | HEX LOCATION (00002558) IN CSECT(I7843  ) LENGTH (2) 
721 CSA AEgOLurE. HEX VALUE (00000029) 396 N00002 ADDRESS. HEX LOCATION (00002566) IN CSECT(I7843 ) LENGTH (2) 
751 CSBUF AABBRESS, HEX LOCATION(Q00002E02) IN CSECT(I7843  ) LENGTH(1) 405 00003 ADDRESS. HEX LOCATION (00002574) IN CSECT(I7843  ) LENGTH (2) 
1018 CSDCB ABDRESS. HEX LOCATION (Q0002EEO) IN CSECT(I7843  ) LENGTH(2) | 408 N00004 ADDRES 92, HEX LOCATION (00002578) IN CSECT(I7843  ) LENGTH (2) 
759 CSTLE ADDRESS, HEX LOCATION(00002E10) IN CSECT(I7843 ) LENGTH (2) | 414 H00005 ADDRESS. HEX LOCATION(0000257C) IN CSECT(I7843  ) LENGTH (2) 
744 DCBUF RBBRESS. HEX LOCATION(00002DF2) IN CSECT(I7843  ) LENGTH(1) : 414 100006 ADDRESS» HEX LOCATION (00002580) IN CSECT(I7843  ) LENGTH (2) 
1856 DC2PT sABBRESS. HEX LOCATION (00003446) IN CSECT(I7843  ) LENGTH(2) 417 N00007 ADDRESS. HEX LOCATION (00002584) IN CSECT(I7843  ) LENGTH (2) 
105 DEVADD ADDRESS, HEX LOCATION (00901900 ot CSECT (77843 says uENGTH (1) | 426 N00008 ADDRESS. HEX LOCATION(00002592) IN CSECT(I7843  ) LENGTH (2) 
7136 DEV1 ADDRESS, HEX LOCATION(QOO0O2DEA) IN CSECT(I7843  ) LENGTH (2) 435 100009 ADDRESS. HEX LOCATION (00002580) IN CSECT(I7843  ) LENGTH (2) 
956 DGDCB ADDRESS. HEX LOCATION (00002E80) IN CSECT(I7843  ) LENGTH(2) 438 00010 SPORES Oo one LOCATION (00002544) IN CSECT(I7843  ) LENGTH (2) 
67 DUMMY ABSOLUTE. HEX WALUE (00000000) 444 N00011 ADDRESS. HEX LOCATION (00002588) IN CSECT(I7843  ) LENGTH (2) 
491 ENTPT ADDRESS. HEX LOCATION (000025F2) IN CSECT(I7843 ) LENGTH(1) Aug 100012 opae  bag LOCATION (000025AC) IN CSECT(I7843 ) LENGTH (2) 
713 ER ABSOLUTE. HEX VALGE (00000021) . 447 100013 ADDRESS, HEX LOCATION (000025B0) IN CSECT(I7843 ) LENGTH (2) 
788 EXIT A BROLUTE. HEX VALUE (00000006) | 456 N00074 ADDRESS. HEX LOCATION (000025BE) IN CSECT(I7843  ) LENGTH (2) 
1858 PAKETU sABBRESS. HEX LOCATION (O0000344A) IN CSECT(I7843  ) LENGTH(2) 465 N00015 ADDRESS. HEX LOCATION (000025CC) IN CSECT(I7843  ) LENGTH (2) 
1100 FIVE9 i ABBRESS. HEX LOCATION (00002F64) IN CSECT(I7843  ) LENGTH(2) _ 468 N00016 ADDRESS. HEX LOCATION(000025D0) IN CSECT(I7843  ) LENGTH (2) 
513 F00063 ADDRESS. HEX LOCATION(O00025¥FC) IN CSECT(I7843  ) LENGTH (1) 471 N00017 ADDRESS. HEX LOCATION(000025D4) IN CSECT(I7843 ) LENGTH (2) 


17843 --- 


DECLARED 


Q74 
477 
486 
488 
677 
700 
101 
1098 
69 


1859 
794 
1051 
801 
1073 
983 
1331 
740 
1108 
1007 
7192 
104 
925 
920 
1329 
1335 
1278 
92 
76 
764 
74 
75 
942 
943 
910 
937 
1040 
1062 
1029 
1101 
973 
1105 
716 
714 
1525 


1706 
1713 
1530 
1715 
1724 
1599 
1534 
1547 
1559 


4962 HEAD SELECT DIAGNOSTIC 
CROSS~REFERENCE LISTING 


NAME 


NO00018 
N00019 
N00020 
NO00021 
OPTN1 
OPTN3 
PARMARA 
PHYSC 
PID 


PIDMSG10 
PREP 
RDDCB 
RICB 
RKDCB 
RSDCB 
RTTO1 
SCTID 
scTst 
SKDCB 
START 
SUPSTAT 
S165 

TS 16L 
TT303 
TT304 
TT4Y 
TUMSGWTR 
TUPARN 1 
TURTN 
TUSTATUS 
TU WORK 
T72A 
T72B 
T7838 
T7872 
VRDCB 
WKDCB 
WRDCB 
WRSID 
WSDCB 
WSIDT 
XE 

XI 

XIO 


XIOCK 
XITOCO 
XIOCS 
XIOCV 
XTOCX 
XIOER 
XI01 
XIO2 
XTO8 


ATTRIBUTES AND REFERENCES 


3 

RESS. HEX LOCATION (000025 D8) 
eat aaa LOCATION (000025DC) 
RE HEX LOCATION (000025EA) 


giBX LOCATION (000025zC) 
HEX LOCATION (00002DDC) 

7 1677 

,HEX LOCATION (00002DE0) 
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